unit ComSet;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Base, RzTabs, ExtCtrls, RzDlgBtn, StdCtrls, Mask, RzEdit, db,adodb,
  RzLabel, IniFiles;

type
  TComSetFrm = class(TBaseFrm)
    RzDialogButtons1: TRzDialogButtons;
    RzPageControl1: TRzPageControl;
    RzTabSheet1: TRzTabSheet;
    RzTabSheet2: TRzTabSheet;
    RzNumericEdit1: TRzNumericEdit;
    RzNumericEdit2: TRzNumericEdit;
    RzNumericEdit3: TRzNumericEdit;
    RzNumericEdit5: TRzNumericEdit;
    RzNumericEdit6: TRzNumericEdit;
    RzNumericEdit7: TRzNumericEdit;
    RzNumericEdit8: TRzNumericEdit;
    RzNumericEdit9: TRzNumericEdit;
    RzNumericEdit10: TRzNumericEdit;
    RzNumericEdit11: TRzNumericEdit;
    RzNumericEdit12: TRzNumericEdit;
    RzLabel1: TRzLabel;
    RzLabel2: TRzLabel;
    RzLabel3: TRzLabel;
    RzLabel4: TRzLabel;
    RzLabel5: TRzLabel;
    RzLabel6: TRzLabel;
    RzLabel7: TRzLabel;
    RzLabel8: TRzLabel;
    RzLabel9: TRzLabel;
    RzLabel10: TRzLabel;
    RzLabel11: TRzLabel;
    RzLabel12: TRzLabel;
    RzLabel13: TRzLabel;
    edtMeterName: TRzEdit;
    RzLabel14: TRzLabel;
    edtMeteraName2: TRzEdit;
    RzLabel15: TRzLabel;
    RzLabel16: TRzLabel;
    RzLabel17: TRzLabel;
    RzLabel18: TRzLabel;
    RzLabel19: TRzLabel;
    RzLabel20: TRzLabel;
    RzNumericEdit13: TRzNumericEdit;
    RzNumericEdit14: TRzNumericEdit;
    RzNumericEdit15: TRzNumericEdit;
    RzNumericEdit16: TRzNumericEdit;
    RzNumericEdit17: TRzNumericEdit;
    RzNumericEdit18: TRzNumericEdit;
    RzLabel21: TRzLabel;
    RzLabel22: TRzLabel;
    RzLabel23: TRzLabel;
    RzLabel24: TRzLabel;
    RzLabel25: TRzLabel;
    RzLabel26: TRzLabel;
    RzNumericEdit19: TRzNumericEdit;
    RzNumericEdit20: TRzNumericEdit;
    RzNumericEdit21: TRzNumericEdit;
    RzNumericEdit22: TRzNumericEdit;
    RzNumericEdit23: TRzNumericEdit;
    RzNumericEdit24: TRzNumericEdit;
    RzNumericEdit4: TRzNumericEdit;
    TabSheet1: TRzTabSheet;
    RzLabel27: TRzLabel;
    RzNumericEdit25: TRzNumericEdit;
    RzLabel28: TRzLabel;
    RzNumericEdit26: TRzNumericEdit;
    RzLabel29: TRzLabel;
    RzLabel30: TRzLabel;
    RzNumericEdit27: TRzNumericEdit;
    RzNumericEdit28: TRzNumericEdit;
    TabSheet2: TRzTabSheet;
    TabSheet3: TRzTabSheet;
    RzLabel31: TRzLabel;
    edtThreeName: TRzEdit;
    RzLabel32: TRzLabel;
    RzNumericEdit29: TRzNumericEdit;
    RzLabel33: TRzLabel;
    RzNumericEdit30: TRzNumericEdit;
    RzNumericEdit31: TRzNumericEdit;
    RzNumericEdit32: TRzNumericEdit;
    RzNumericEdit33: TRzNumericEdit;
    RzNumericEdit34: TRzNumericEdit;
    RzNumericEdit35: TRzNumericEdit;
    RzLabel34: TRzLabel;
    RzLabel35: TRzLabel;
    RzLabel36: TRzLabel;
    RzLabel37: TRzLabel;
    RzLabel38: TRzLabel;
    RzNumericEdit36: TRzNumericEdit;
    RzNumericEdit37: TRzNumericEdit;
    RzNumericEdit38: TRzNumericEdit;
    RzNumericEdit39: TRzNumericEdit;
    RzNumericEdit40: TRzNumericEdit;
    RzLabel39: TRzLabel;
    RzLabel40: TRzLabel;
    RzLabel41: TRzLabel;
    RzLabel42: TRzLabel;
    RzLabel43: TRzLabel;
    RzLabel44: TRzLabel;
    edtFourName: TRzEdit;
    RzLabel45: TRzLabel;
    RzNumericEdit41: TRzNumericEdit;
    RzLabel46: TRzLabel;
    RzNumericEdit42: TRzNumericEdit;
    RzNumericEdit43: TRzNumericEdit;
    RzNumericEdit44: TRzNumericEdit;
    RzNumericEdit45: TRzNumericEdit;
    RzNumericEdit46: TRzNumericEdit;
    RzNumericEdit47: TRzNumericEdit;
    RzLabel47: TRzLabel;
    RzLabel48: TRzLabel;
    RzLabel49: TRzLabel;
    RzLabel50: TRzLabel;
    RzLabel51: TRzLabel;
    RzNumericEdit48: TRzNumericEdit;
    RzNumericEdit49: TRzNumericEdit;
    RzNumericEdit50: TRzNumericEdit;
    RzNumericEdit51: TRzNumericEdit;
    RzNumericEdit52: TRzNumericEdit;
    RzLabel52: TRzLabel;
    RzLabel53: TRzLabel;
    RzLabel54: TRzLabel;
    RzLabel55: TRzLabel;
    RzLabel56: TRzLabel;
    procedure RzDialogButtons1ClickOk(Sender: TObject);
    procedure RzDialogButtons1ClickCancel(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ComSetFrm: TComSetFrm;

implementation

uses DM, CDefine, MainTest;

{$R *.dfm}

procedure TComSetFrm.RzDialogButtons1ClickOk(Sender: TObject);
var
  TheIniFile: string;
  TmpStr: string;
  Ini: TIniFile;
begin
  inherited;
  TmpStr:=ExtractFilePath(ParamStr(0));
  TheIniFile := TmpStr + 'DBServerSet.ini';
  TmpStr := TmpStr + 'DBSetup.exe';
  if FileExists(TheIniFile) then
  begin
    Ini := TIniFile.Create( TheIniFile );
    try
      try
        XiShu1 := RzNumericEdit25.Value;
        DiShu1 := RzNumericEdit26.Value;

        XiShu2 := RzNumericEdit28.Value;
        DiShu2 := RzNumericEdit27.Value;
      
        Ini.WriteFloat('DBSet', 'XiShu1', XiShu1);
        Ini.WriteFloat('DBSet', 'DiShu1', DiShu1);
        Ini.WriteFloat('DBSet', 'XiShu2', XiShu2);
        Ini.WriteFloat('DBSet', 'DiShu2', DiShu2);

      except 
      end;
    finally
      Ini.Free;
    end;
  end;

  dmMain.qryParam.Close;
  dmMain.qryParam.Open;
  //
 IL0A := RzNumericEdit1.Value ;
 IH0A := RzNumericEdit2.Value ;
 ILbA := RzNumericEdit3.Value ;
 IHbA := RzNumericEdit4.Value  ;
 k1A := RzNumericEdit5.Value ;
 k2A :=  RzNumericEdit6.Value;
 k3A := RzNumericEdit7.Value ;
 k4A := RzNumericEdit8.Value ;
 WhA :=  RzNumericEdit11.Value ;
 wlA  := RzNumericEdit10.Value;
 weA :=  RzNumericEdit9.Value ;
 WsA  := RzNumericEdit12.Value;

  IL0B := RzNumericEdit13.Value ;
  IH0B := RzNumericEdit14.Value  ;
  ILbB := RzNumericEdit15.Value ;
  IHbB := RzNumericEdit16.Value  ;
  k1B := RzNumericEdit17.Value  ;
  k2B := RzNumericEdit18.Value  ;
  k3B := RzNumericEdit19.Value  ;
  k4B := RzNumericEdit20.Value  ;
  WeB := RzNumericEdit21.Value  ;
  wlB := RzNumericEdit22.Value  ;
  whB := RzNumericEdit23.Value  ;
  WsB := RzNumericEdit24.Value  ;

  IL0C := RzNumericEdit29.Value ;
  IH0C := RzNumericEdit36.Value ;
  ILbC := RzNumericEdit37.Value ;
  IHbC := RzNumericEdit38.Value  ;
  k1C := RzNumericEdit39.Value ;
  k2C :=  RzNumericEdit40.Value;
  k3C := RzNumericEdit30.Value ;
  k4C := RzNumericEdit31.Value ;
  WhC :=  RzNumericEdit34.Value ;
  wlC  := RzNumericEdit33.Value;
  weC :=  RzNumericEdit32.Value ;
  WsC  := RzNumericEdit35.Value;

  IL0D := RzNumericEdit41.Value ;
  IH0D := RzNumericEdit48.Value  ;
  ILbD := RzNumericEdit49.Value ;
  IHbD := RzNumericEdit50.Value  ;
  k1D := RzNumericEdit51.Value  ;
  k2D := RzNumericEdit52.Value  ;
  k3D := RzNumericEdit42.Value  ;
  k4D := RzNumericEdit43.Value  ;
  WeD := RzNumericEdit44.Value  ;
  wlD := RzNumericEdit45.Value  ;
  whD := RzNumericEdit46.Value  ;
  WsD := RzNumericEdit47.Value  ;


  ThreeMeterName := edtThreeName.Text;
  FourMeterName := edtFourName.Text;

  TwoMeterName := edtMeteraName2.Text;
  OneMeterName := edtMeterName.Text;


  if (dmMain.qryParam.Locate('TID',variant(1), [loPartialKey])) then
  begin
    dmMain.qryParam.Edit;
    dmMain.qryParam.fieldByName('MeterName').Value   := OneMeterName;
    dmMain.qryParam.fieldByName('IL0').Value   := IL0A;
    dmMain.qryParam.fieldByName('IH0').Value   := IH0A;
    dmMain.qryParam.fieldByName('ILb').Value   := ILbA;
    dmMain.qryParam.fieldByName('IHb').Value   := IHbA;
    dmMain.qryParam.fieldByName('k1').Value   := k1A;
    dmMain.qryParam.fieldByName('k2').Value   := k2A;
    dmMain.qryParam.fieldByName('k3').Value   := k3A;
    dmMain.qryParam.fieldByName('k4').Value   := k4A;
    dmMain.qryParam.fieldByName('Wh').Value   := WhA;
    dmMain.qryParam.fieldByName('wl').Value   := wlA;
    dmMain.qryParam.fieldByName('we').Value   := weA;
    dmMain.qryParam.fieldByName('ws').Value   := wsA;
  end;
  dmMain.qryParam.Post;

  dmMain.ParamList.Open;
  dmMain.ParamList.Append;
  dmMain.ParamList.fieldByName('MeterName').Value   := OneMeterName;
  dmMain.ParamList.fieldByName('IL0').Value   := IL0A;
  dmMain.ParamList.fieldByName('IH0').Value   := IH0A;
  dmMain.ParamList.fieldByName('ILb').Value   := ILbA;
  dmMain.ParamList.fieldByName('IHb').Value   := IHbA;
  dmMain.ParamList.fieldByName('k1').Value   := k1A;
  dmMain.ParamList.fieldByName('k2').Value   := k2A;
  dmMain.ParamList.fieldByName('k3').Value   := k3A;
  dmMain.ParamList.fieldByName('k4').Value   := k4A;
  dmMain.ParamList.fieldByName('Wh').Value   := WhA;
  dmMain.ParamList.fieldByName('wl').Value   := wlA;
  dmMain.ParamList.fieldByName('we').Value   := weA;
  dmMain.ParamList.fieldByName('ws').Value   := wsA;
  dmMain.ParamList.Post;

  if (dmMain.qryParam.Locate('TID',variant(2), [loPartialKey])) then
  begin
    dmMain.qryParam.Edit;
    dmMain.qryParam.fieldByName('MeterName').Value   := TwoMeterName;
    dmMain.qryParam.fieldByName('IL0').Value   := IL0B;
    dmMain.qryParam.fieldByName('IH0').Value   := IH0B;
    dmMain.qryParam.fieldByName('ILb').Value   := ILbB;
    dmMain.qryParam.fieldByName('IHb').Value   := IHbB;
    dmMain.qryParam.fieldByName('k1').Value   := k1B;
    dmMain.qryParam.fieldByName('k2').Value   := k2B;
    dmMain.qryParam.fieldByName('k3').Value   := k3B;
    dmMain.qryParam.fieldByName('k4').Value   := k4B;
    dmMain.qryParam.fieldByName('Wh').Value   := WhB;
    dmMain.qryParam.fieldByName('wl').Value   := wlB;
    dmMain.qryParam.fieldByName('we').Value   := weB;
    dmMain.qryParam.fieldByName('ws').Value   := wsB;
  end;
  dmMain.qryParam.Post;

  dmMain.ParamList.Append;
  dmMain.ParamList.fieldByName('MeterName').Value   := TwoMeterName;
  dmMain.ParamList.fieldByName('IL0').Value   := IL0B;
  dmMain.ParamList.fieldByName('IH0').Value   := IH0B;
  dmMain.ParamList.fieldByName('ILb').Value   := ILbB;
  dmMain.ParamList.fieldByName('IHb').Value   := IHbB;
  dmMain.ParamList.fieldByName('k1').Value   := k1B;
  dmMain.ParamList.fieldByName('k2').Value   := k2B;
  dmMain.ParamList.fieldByName('k3').Value   := k3B;
  dmMain.ParamList.fieldByName('k4').Value   := k4B;
  dmMain.ParamList.fieldByName('Wh').Value   := WhB;
  dmMain.ParamList.fieldByName('wl').Value   := wlB;
  dmMain.ParamList.fieldByName('we').Value   := weB;
  dmMain.ParamList.fieldByName('ws').Value   := wsB;
  dmMain.ParamList.Post;


  if (dmMain.qryParam.Locate('TID',variant(3), [loPartialKey])) then
  begin
    dmMain.qryParam.Edit;
    dmMain.qryParam.fieldByName('MeterName').Value   := ThreeMeterName;
    dmMain.qryParam.fieldByName('IL0').Value   := IL0C;
    dmMain.qryParam.fieldByName('IH0').Value   := IH0C;
    dmMain.qryParam.fieldByName('ILb').Value   := ILbC;
    dmMain.qryParam.fieldByName('IHb').Value   := IHbC;
    dmMain.qryParam.fieldByName('k1').Value   := k1C;
    dmMain.qryParam.fieldByName('k2').Value   := k2C;
    dmMain.qryParam.fieldByName('k3').Value   := k3C;
    dmMain.qryParam.fieldByName('k4').Value   := k4C;
    dmMain.qryParam.fieldByName('Wh').Value   := WhC;
    dmMain.qryParam.fieldByName('wl').Value   := wlC;
    dmMain.qryParam.fieldByName('we').Value   := weC;
    dmMain.qryParam.fieldByName('ws').Value   := wsC;
  end;
  dmMain.qryParam.Post;

  dmMain.ParamList.Open;
  dmMain.ParamList.Append;
  dmMain.ParamList.fieldByName('MeterName').Value   := ThreeMeterName;
  dmMain.ParamList.fieldByName('IL0').Value   := IL0C;
  dmMain.ParamList.fieldByName('IH0').Value   := IH0C;
  dmMain.ParamList.fieldByName('ILb').Value   := ILbC;
  dmMain.ParamList.fieldByName('IHb').Value   := IHbC;
  dmMain.ParamList.fieldByName('k1').Value   := k1C;
  dmMain.ParamList.fieldByName('k2').Value   := k2C;
  dmMain.ParamList.fieldByName('k3').Value   := k3C;
  dmMain.ParamList.fieldByName('k4').Value   := k4C;
  dmMain.ParamList.fieldByName('Wh').Value   := WhC;
  dmMain.ParamList.fieldByName('wl').Value   := wlC;
  dmMain.ParamList.fieldByName('we').Value   := weC;
  dmMain.ParamList.fieldByName('ws').Value   := wsC;
  dmMain.ParamList.Post;

  if (dmMain.qryParam.Locate('TID',variant(4), [loPartialKey])) then
  begin
    dmMain.qryParam.Edit;
    dmMain.qryParam.fieldByName('MeterName').Value   := FourMeterName;
    dmMain.qryParam.fieldByName('IL0').Value   := IL0D;
    dmMain.qryParam.fieldByName('IH0').Value   := IH0D;
    dmMain.qryParam.fieldByName('ILb').Value   := ILbD;
    dmMain.qryParam.fieldByName('IHb').Value   := IHbD;
    dmMain.qryParam.fieldByName('k1').Value   := k1D;
    dmMain.qryParam.fieldByName('k2').Value   := k2D;
    dmMain.qryParam.fieldByName('k3').Value   := k3D;
    dmMain.qryParam.fieldByName('k4').Value   := k4D;
    dmMain.qryParam.fieldByName('Wh').Value   := WhD;
    dmMain.qryParam.fieldByName('wl').Value   := wlD;
    dmMain.qryParam.fieldByName('we').Value   := weD;
    dmMain.qryParam.fieldByName('ws').Value   := wsD;
  end;
  dmMain.qryParam.Post;

  dmMain.ParamList.Open;
  dmMain.ParamList.Append;
  dmMain.ParamList.fieldByName('MeterName').Value   := FourMeterName;
  dmMain.ParamList.fieldByName('IL0').Value   := IL0D;
  dmMain.ParamList.fieldByName('IH0').Value   := IH0D;
  dmMain.ParamList.fieldByName('ILb').Value   := ILbD;
  dmMain.ParamList.fieldByName('IHb').Value   := IHbD;
  dmMain.ParamList.fieldByName('k1').Value   := k1D;
  dmMain.ParamList.fieldByName('k2').Value   := k2D;
  dmMain.ParamList.fieldByName('k3').Value   := k3D;
  dmMain.ParamList.fieldByName('k4').Value   := k4D;
  dmMain.ParamList.fieldByName('Wh').Value   := WhD;
  dmMain.ParamList.fieldByName('wl').Value   := wlD;
  dmMain.ParamList.fieldByName('we').Value   := weD;
  dmMain.ParamList.fieldByName('ws').Value   := wsD;
  dmMain.ParamList.Post;


  dmMain.ParamList.Close;
end;

procedure TComSetFrm.RzDialogButtons1ClickCancel(Sender: TObject);
begin
  dmMain.qryParam.Close;
  inherited;
end;

procedure TComSetFrm.FormShow(Sender: TObject);
var
  TheIniFile: string;
  TmpStr: string;
  Ini: TIniFile;
begin
  inherited;
  TmpStr:=ExtractFilePath(ParamStr(0));
  TheIniFile := TmpStr + 'DBServerSet.ini';
  TmpStr := TmpStr + 'DBSetup.exe';
  if FileExists(TheIniFile) then
  begin
    Ini := TIniFile.Create( TheIniFile );
    try
      try
        XiShu1 := Ini.ReadFloat('DBSet', 'XiShu1', 39.2794);
        DiShu1 :=  Ini.ReadFloat('DBSet', 'DiShu1', 0.980067);

        XiShu2 := Ini.ReadFloat('DBSet', 'XiShu2', 39.2794);
        DiShu2 :=  Ini.ReadFloat('DBSet', 'DiShu2', 0.980067);

        RzNumericEdit25.Value := XiShu1;
        RzNumericEdit26.Value := DiShu1;

        RzNumericEdit28.Value := XiShu2;
        RzNumericEdit27.Value := DiShu2;
      except 
      end;
    finally
      Ini.Free;
    end;
  end;

  dmMain.qryParam.Close;
  dmMain.qryParam.Open;
  //
  if (dmMain.qryParam.Locate('TID',variant(1), [loPartialKey])) then
  begin
    OneMeterName := dmMain.qryParam.fieldByName('MeterName').Asstring;
    IL0A := dmMain.qryParam.fieldByName('IL0').AsCurrency;
    IH0A := dmMain.qryParam.fieldByName('IH0').AsCurrency;
    ILbA := dmMain.qryParam.fieldByName('ILb').AsCurrency;
    IHbA := dmMain.qryParam.fieldByName('IHb').AsCurrency;
    k1A := dmMain.qryParam.fieldByName('k1').AsCurrency;
    k2A := dmMain.qryParam.fieldByName('k2').AsCurrency;
    k3A := dmMain.qryParam.fieldByName('k3').AsCurrency;
    k4A := dmMain.qryParam.fieldByName('k4').AsCurrency;
    WhA := dmMain.qryParam.fieldByName('Wh').AsCurrency;
    wlA := dmMain.qryParam.fieldByName('wl').AsCurrency;
    weA := dmMain.qryParam.fieldByName('we').AsCurrency;
    wsA := dmMain.qryParam.fieldByName('ws').AsCurrency;
  end;

  if (dmMain.qryParam.Locate('TID',variant(2), [loPartialKey])) then
  begin
    TwoMeterName := dmMain.qryParam.fieldByName('MeterName').Asstring;
    IL0B := dmMain.qryParam.fieldByName('IL0').AsCurrency;
    IH0B := dmMain.qryParam.fieldByName('IH0').AsCurrency;
    ILbB := dmMain.qryParam.fieldByName('ILb').AsCurrency;
    IHbB := dmMain.qryParam.fieldByName('IHb').AsCurrency;
    k1B := dmMain.qryParam.fieldByName('k1').AsCurrency;
    k2B := dmMain.qryParam.fieldByName('k2').AsCurrency;
    k3B := dmMain.qryParam.fieldByName('k3').AsCurrency;
    k4b := dmMain.qryParam.fieldByName('k4').AsCurrency;
    Whb := dmMain.qryParam.fieldByName('Wh').AsCurrency;
    wlB := dmMain.qryParam.fieldByName('wl').AsCurrency;
    web := dmMain.qryParam.fieldByName('we').AsCurrency;
    wsB := dmMain.qryParam.fieldByName('ws').AsCurrency;
  end;

  if (dmMain.qryParam.Locate('TID',variant(3), [loPartialKey])) then
  begin
    ThreeMeterName := dmMain.qryParam.fieldByName('MeterName').Asstring;
    IL0C := dmMain.qryParam.fieldByName('IL0').AsCurrency;
    IH0C := dmMain.qryParam.fieldByName('IH0').AsCurrency;
    ILbC := dmMain.qryParam.fieldByName('ILb').AsCurrency;
    IHbC := dmMain.qryParam.fieldByName('IHb').AsCurrency;
    k1C := dmMain.qryParam.fieldByName('k1').AsCurrency;
    k2C := dmMain.qryParam.fieldByName('k2').AsCurrency;
    k3C := dmMain.qryParam.fieldByName('k3').AsCurrency;
    k4C := dmMain.qryParam.fieldByName('k4').AsCurrency;
    WhC := dmMain.qryParam.fieldByName('Wh').AsCurrency;
    wlC := dmMain.qryParam.fieldByName('wl').AsCurrency;
    weC := dmMain.qryParam.fieldByName('we').AsCurrency;
    wsC := dmMain.qryParam.fieldByName('ws').AsCurrency;
  end;

  if (dmMain.qryParam.Locate('TID',variant(4), [loPartialKey])) then
  begin
    FourMeterName := dmMain.qryParam.fieldByName('MeterName').Asstring;
    IL0D := dmMain.qryParam.fieldByName('IL0').AsCurrency;
    IH0D := dmMain.qryParam.fieldByName('IH0').AsCurrency;
    ILbD := dmMain.qryParam.fieldByName('ILb').AsCurrency;
    IHbD := dmMain.qryParam.fieldByName('IHb').AsCurrency;
    k1D := dmMain.qryParam.fieldByName('k1').AsCurrency;
    k2D := dmMain.qryParam.fieldByName('k2').AsCurrency;
    k3D := dmMain.qryParam.fieldByName('k3').AsCurrency;
    k4D := dmMain.qryParam.fieldByName('k4').AsCurrency;
    WhD := dmMain.qryParam.fieldByName('Wh').AsCurrency;
    wlD := dmMain.qryParam.fieldByName('wl').AsCurrency;
    weD := dmMain.qryParam.fieldByName('we').AsCurrency;
    wsD := dmMain.qryParam.fieldByName('ws').AsCurrency;
  end;

  dmMain.qryParam.Close;

  edtMeterName.Text := OneMetername;
  RzNumericEdit1.Value := IL0A;
  RzNumericEdit2.Value := IH0A;
  RzNumericEdit3.Value := ILbA;
  RzNumericEdit4.Value := IHbA;
  RzNumericEdit5.Value := k1A;
  RzNumericEdit6.Value := k2A;
  RzNumericEdit7.Value := k3A;
  RzNumericEdit8.Value := k4A;

  RzNumericEdit9.Value := WeA;
  RzNumericEdit10.Value := wlA;
  RzNumericEdit11.Value := whA;
  RzNumericEdit12.Value := WsA;

  edtMeteraName2.Text := TwoMetername;
  RzNumericEdit13.Value := IL0B;
  RzNumericEdit14.Value := IH0B;
  RzNumericEdit15.Value := ILbB;
  RzNumericEdit16.Value := IHbB;
  RzNumericEdit17.Value := k1B;
  RzNumericEdit18.Value := k2B;
  RzNumericEdit19.Value := k3B;
  RzNumericEdit20.Value := k4B;

  RzNumericEdit21.Value := WeB;
  RzNumericEdit22.Value := wlB;
  RzNumericEdit23.Value := whB;
  RzNumericEdit24.Value := WsB;

  edtThreeName.Text := ThreeMetername;
   RzNumericEdit29.Value := IL0C;
   RzNumericEdit36.Value := IH0C;
   RzNumericEdit37.Value := ILbC;
   RzNumericEdit38.Value := IHbC;
   RzNumericEdit39.Value := k1C;
   RzNumericEdit40.Value := k2C;
   RzNumericEdit30.Value := k3C;
   RzNumericEdit31.Value := k4C;
   RzNumericEdit34.Value := WhC;
   RzNumericEdit33.Value := wlC;
   RzNumericEdit32.Value := weC;
   RzNumericEdit35.Value := WsC;

   edtFourName.Text := FourMetername;
   RzNumericEdit41.Value := IL0D;
   RzNumericEdit48.Value := IH0D ;
   RzNumericEdit49.Value := ILbD;
   RzNumericEdit50.Value := IHbD ;
   RzNumericEdit51.Value :=  k1D;
   RzNumericEdit52.Value := k2D ;
   RzNumericEdit42.Value := k3D ;
   RzNumericEdit43.Value := k4D ;
   RzNumericEdit44.Value :=  WeD;
   RzNumericEdit45.Value := wlD ;
   RzNumericEdit46.Value :=  whD;
   RzNumericEdit47.Value := WsD ;

end;

end.
